"
A trait for test purposes
"
Trait {
	#name : 'TCopyPreservingIdentityTest',
	#category : 'Collections-Abstract-Tests-Traits',
	#package : 'Collections-Abstract-Tests',
	#tag : 'Traits'
}

{ #category : 'requirements' }
TCopyPreservingIdentityTest >> nonEmpty [
	self explicitRequirement
]

{ #category : 'tests - copy' }
TCopyPreservingIdentityTest >> testCopyReturnsIdentity [

	| copy |
	copy := self nonEmpty copy.
	self assert: self nonEmpty == copy
]
